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. 六 
ロ 叫 牛 ・ 過 苺 院 所 
MO 転 に ・ 慰 提 貴 生葉 


@ カ セッ トメ ディ ア の 使い 方 

カセ ッ ト メ ディ ア に は 成 痢 ベー ジョ ン の ダ 
ー ム 5 作 と 、V 3 バー ジョ ン の ゲー ム 5 作 が 
SAVE され て いま す 。 順 番 は 、 画 面 デ ー タ 、 
プロ グラ ム デ ー タ の 順に な っ て いま す 。 

e 既存 バ - ー ジ ョ ン ーBG グ ラフ ィ ッ クモ 
ー ド の 状態 で 、 ESC を あし ます 。 カー アル で 

L 印 を FILE に あわ せ 、 ス ペース キー - を お し ま 
ま 。 を お し RETURN キ ー を お す と LO 
AD 開始 で す 。 画面 デー タ が 読み 終わ っ た ら 、 
BASIC モ ー ド に も ど し 、 フ ァ ン クシ ョ ン キ ー 
の 1(F- 1) を お す と LOAD 開 始 で す 。 読み 終わ 


っ たら 、 フ ァ ン クシ ョ ン キ ー の 8(F-8) を お し 


ンー バキ テラ ュ こ 
7 人 - つ 

(コガ イチ 
』 ナ ソン c ス ノ 


@V 3 バー ジョ ン BASIC モ ー ド て 全部 
下 の 1 行 を を の まま 打 


LOADS : LOAD IRETURN | 

読み 終わ っ た ら 、 フ ァ ン クシ ョ ン キ ー の 8 
(F-8) を お し て 遊び まし ょ う 。 な お 、「 ザ ・ パ 
ズル 」 と レ 4 ラロ ー 人 ム 、」 (は 画面 テ ge タ が な い の て 、 


下 の 1 行 を 打ち こん で くだ さい 


LOAD RE TURN 
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op 
人 ム 
と 
放 
び 
方 
| 
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党 
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る 


cw 
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へ 細 治 Smwーwーpcvu Se | 牛 


sf を まう ッ 
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SS 


へ WS SYS 本 党 さ 


で CS きせ 


雇 疹 < 補 諸 吾 AS ひ へ ペ 


3 3 
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っ 
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し 


ct 


NMfeyf 
、 の 


10 0=1:G=5:P=25:V=2:sDTMA(P ) , B(P ) 

20 CLS:FORT=O TOPsA(T ) =Z:B( 1 ) =Z s NEXT : TA= 
2Z:TB=Z:FORT=O TOP 

30 A=RND(P )+0:TFA(A)<>Z GOTO30 

40 A(A)=T 

50 A=RND(P)+O:TFB(A)<>Z GOTO50 

60 B(A)=T:NEXT<VTEW:FORT=O TOP STEPG:FOR 
け =Z TO4:A$=RTGHT$(" "+STR$(A( エ + ブ ) ) ,V ) :LO 
CATEJ*3+0,T/G ネ V+ 4 :PRTNTA$:LOCA 

TEJ ネ V+17 , エ /G ネ V+4 ょ PRTNT "2 sNEXT <:NEXT : GOSU 
B510 s TNPUT "セン コウ ゥ ?(Y/N) "2A$sTFA$="Y リ "GOTO17 
0 

110 RESTORE FORT=O TOP:READJ: TFB(J)<>Z C 
=B ( ゴ ) sD= ゴ s エ =P 

130 NEXTsGOSUB510:PRTNT" ワタシ ハリ Cs BEEP :FO 
RT=O TOP: TFA( T ) =C M= エ T-O:GOSUB580 : LOCATEM 
* ネ 3+O, ( エ -O ) /G*V+4 :PRTNT "PP":A(T ) =Z 

150 NEXT:sB(D) =2Z :M=D-O:GOSUB580 :L,OCATEM*V 
+17,(D-O) /G*V+4:PRTNT"P" 

170 GOSUB250:GOSUB51 0 : TNPUT "カメ ハリ >As TEFA= 
2Z B=Z:GOTO200 


180 B=2:FORT=O TOP:TFA(T ) =A B=O 

190 NEXT 

200 TEFB=2 GOSUB510 :PRTNT" モウ タダ メデ スリ sBEEPsG 
OTO170 

210 BEEP:FEORT=O TOP=:TFA ( T ) =A _M=T-O=:GOSUB 
72000 ki 計 箇 
T ) =Z 

230 TFB( エ T ) =A M= エ -O:GOSUB580 : LOCATEM* ネ V+1 7 
/ ( エ -O) /G*V+ 4 : PRTNT "PsB(T) = 

240 NEXTsGOSUB250 :GOTO110 

250 TA=ZsTB=ZsFORT=O TOP STEPGkAA=Z・BB= ク Z 
sxFORJ=Z TO4:TFA( エ +J け ) =Z AA=AA+O 

260 TEFB( エ +J ゴ ) =Z BB=BB+O 

270 NEXTs TFAA=G TA=TA+O 

280 TEFBB=G TB=TB+O 

290 NEXTsFORT=O TOG:AA=Z・BB=ZsFORJ=Z TO4 
: TFA( エ +J* ネ G ) =Z2 AA=AA+O 

300 TFB( エ +J ネ G ) =2 BB=BB+O 

310 NEXT:TFAA=G TA=TA+O 

320 TFBB=G TB=TB+O 

330 NEXT:AA=ZsBB=Z:FORT=Z TO4:TFA( エネ G+ エ + 
O) =Z AA=AA+O 

350 TFB( エ T*G+T+O) =Z BB=BB+O 

360 NEXT:TFAA=G TA=TA+O 

370 TFBB=G TB=TB+O 

380 AA=ZsBB=ZsFORT=O TOG:TFA ( エネ G- エ +O ) =Z 
AA=AA+O 

400 ITFB( エ T*G- エ +O ) =Z BB=BB+O 

410 NEXT:TFAA=G TA=TA+O 

420 TFBB=G TB=TB+O 

430 LOCATB3。14。PRTNWO" ァ ナタ "3 の" リタ シリ > 中 
BTF(TA>=G AND TB<G)GOSUB51 0 : PRTNT" アナ 
タ ノ カチ デス 2 "'sGOTO520 

450 ITF(TB>=G AND TA<G)GOSUB510sPRINT" 5 
タン / カチ デス" sGOTO520 

460 TF(TA>=G AND TB> =G ) GOTO480 

470 RETURN 

480 TEFETA>TB GOSUB510:PRTNT" アナ タ / カチ デス 『' 


sGOTPO520 

490 TFTA=TB GOSUB51 0 : PRTNT" ヒキ リ ケ デス sGO 
ke に 4 

500 GOSUB510:PRTNT" リタ シ / ヵ カチ テス " s GOTO520 
510 LOCATEZ,16:PRTNT" 

る LOGAT 草 8 。 16: RETURN 

520 TFTA<TB PLAY'"O5C104BAGO5C: O5E1#D#CO4 
B 『8 

530 TFTA<TB PLAY"O4BAGO5CRERCsO5#D#CO4BO 
5ER#GRE"' :GOTO560 

5 40 PLAY'"O5C1CO4GGAA:O5E1EO4BBO5#C#C" 
550 PLAY'O4EEGABB : 04#G#GBO5#C#D#DE" 

560 PRTNT:TNPUT" モウ イチ ド シマ スカ "zA$ 

570 TFLEFT$(A$,O)="Y"GOTO20 

580 TFM=G M=0:RETURN 

590 M=M MODG:RETURN 

500 DATA13。9/5。17,21。7。19,1.25。8,3,18。23 
12/14/11,15,4,24,2,22,6,10,16,20 
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5 SPRTTEOFEF :CLS:GOTO 2000 


10 CGEN3:DEFSPRTTE0,(070,1,0.0)="/":DEFS 


PRTTE1,(0,0,1,1,0)="/" 


20 DEFSPRTTE2,(0,1,0,0,0)=CHR$(&HC4 ) +CHR 
$(&HC6)+" 『" 


30 FOR T=3 TO 7:DEEFSPRTTET , (0,0,0,0,0 )=" 
き NERXF 

40 CGSET1 , 1 :SPRTTEON 

100 VIEw 

110 LOCATEO,21:PRTNT"SCORE <: ENER 
.GYs" 

120 SC=0:EN=200 

130 LOCATE6,21:PRTNTSC:GOSUB800:X=RND( 20 
0 )+24:Y=32 

135 TFEN<=0GOTO1000 

137 TF AT=1GOSUB700 :GOTO1 30 

140 GOSUB400:GOSUB410:GOSUB300:GOSUB500< 


GOSUB600:GOTO1 35 
300 ONSTTICK( 0 )GOTO450,430,310,440,310,31 
0,310,460 


1 RETURN 
400 S=RND( 7 ) + 1 

410 ONS GOTO430,460,450,460,460,460,440 
420 SPRTTE2,X, Ys:RETURN 

430 X=X+1・:TFX>216GOTO470 

435 GOTO420 

440 Y=Y-1:TFY<32GOTO470 

445 GOTO420 

450 X=X-1:TFX<24GOTO470 

455 GOTO420 

460 Y=Y+1:TFY>176GOTO480 

465 GOTO420 

470 X=RND( 200 )+24:Y=32:RETURN 

480 TEF RND( 10 ) <5GOTO470 

490 SPRTTE2:FORT=0TO3 :CGEN0 :PLAY"O2C1" :C 
GEN3・PLAY"R1":NEXT:EN=EN-RND( 10 ) :GOSUB80 
0 :GOTO470 

500 TFTM=1RETURN 

505 TFSTRTG( 0 )<>8RETURN 

506 PLAY"O5B1" 

510 LX=48:LY=176:RX=200:RY=176:TM=1:T1=0 
: RETURN 

600 TFTM=0RETURN 

610 SPRITE0,LX,LY:SPRTTE1 ,RX,RY:LX=LX+4: 
LY=LY-4:RX=RX-4:RY=RY-4:T1=T1+1:TFT1<>193 
RETURN 
Ki 
0 3A 呈 = 

640 TEFX<112OR X>128RETURN 

650 ITFY<88 OR Y>110RETURN 

660 AT=1 :RETURN 

700 TFAT=0RETURN 

705 PLAY"O5COFGA 

710 SPRTTE2:X=X+8:Y=Y+4 

720 FORT=0TO15:SPRTTE3,X- エ T,Y-T:SPRTTE4,X 
+T,Y-T:SPRTTE5,X- エ ,Y+ エ T:SPRTTE6 ,X+ エ ,Y++sN 
EXTkFORT=3TO6 :SPRTTET:NEXT 

730 AT=0:SC=SC+1 0 :LOCATE6 , 21 : PRINTSC: RET 


URN 
800 LOCATE22,21 :PRTNTEN : " 「":RETURN 

1000 SPRTTEOFE :LOCATE10,9:PRTINT"GAME OVE 
R" :LOCATE10,11:PRTNT "TRY AGATN?" sLOCATE5 
/13:PRTNT" (Y=START,N=SELECT ) " 

1010 TEFSTRTG( 0 ) =1RUN 

1020 TEFSTRTG( 0 ) =2CLS : END 

1030 GOTO1010 

2000 FORT=0TO50 : LOCATERND( 28 ) , RND( 20 ) : PR 
TNTCHR$( &HCD ) : NEXT 

2005 A$= "SPACE ATTACKER" 

2010 FORT=1TOLEN(A$ ) :LOCATE6+T , 1 0 :PRTNTM 
TD$(A$, エ , 1 ) : :PLAY"O4COR" : NEXT 

2020 LOCATE8 , 1 3 :PRTNT" (PUSH START ) ": PLIAY 
CO 

2030 TFSTRTG( 0 ) = 1GOTO10 

2040 GOTO2030 / どど ン ッッ ジ 
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10 2=0・O=1 :T=2:S=3:F=4:G=5 :DTMT(F,G) :CGS 
ETO,O:CLS :VTEW:SPRTTEON 

20 MX=96xkMY=168:ME=O:MA=S: SC=2 

30 GOSUB430:GOSUB420 

40 DEFMOVE( 2 ) =SPRTTE(O,S,O,O0,Z,Z ) : POSTTT ユ 
ONZ , MX , MY :MOVEZ 

50 GOSUB6 0 :GOSUB1 1 0 : GOSUB1 70 :GOSUB6 0 : GOS 
UB110:xGOSUB60 :GOSUB1 10:GOTO50 

60 TIFMOVE( 2 ) RETURN 

70 A=STTCK(Z) :TF (A=Z ORA>T) CUTZ :RETURN 
80 DEFMOVE( 2 ) =SPRTTE(0,(A-O0) ま F+S, OF,2,2 
) : LTFMX<24MX=24:RETURN 

90 TFMX>176MX=176:RETURN 

100 POSTTTONZ , MX , MY :MOVEZ :MX=MX- 入 12+18<: 
AA=AxSW=Z:ERAO:RETURN 

110 TF ( MOVE( 2 ) ORMOVE(O ) ORSW=O ) RETURN 

140 BSTRIG( Z ) : IFB<> 8RETURN 

150 TFAA=Z RETURN 

160 DEFMOVE(O) =SPRTTE(13,(AA-O ) *F+S,O, 8, 
Z,2 ) :POSTTTONO, MX , MY : MOVEO:SW=O:RETURN 

1 7 上 ma 


180 ONT(T,F)GOTO190,200,210,220,230:DEES 
PRTTET, (2/0,/2,/2/2) = リナ ニュ ネ リ ":GOTO240 

190 DEFSPRTTET, (2,0,Z,2,/2)="<=>2":GOTO24 
0 


200 DEFSPRTTET, (2 ,0,2,2 2 ) = リ ケ コ サン sGOTO2 4 
0 
210 DEFSPRTTET , (2Z,0,2 2 の) = リュ ョ ッ カ " ェ GOTO 2 4 
0 


220 DEFSPRTTET, (2,0,Z,Z/2)="XYZ[ "<GOTO24 
0 

230 DEFSPRTTET, (2,0,2,Z2,2)="TUVW": TFT(T エ 」 
O)<Z GOTO400 

240 SPRTTET,T(T,Z) ,T(T,O) :TX=T(T,Z)+T( エ , 
T) :TY=T(T,O)+T(T,S) : TF (TX<24ORTX> 1 76 ) T(T 
,T ) =-T(T,T) :GOTO270 

250 TFTY>=176GOTO270 

260 T(T,Z) =TX 

270 TFTY<176GOTO360 

280 TFT(T,T)=Z T(T,T)=(RND(T) *T-O) *E 

290 TF(SW=O ANDT(T,Z) >=MX-AA*28+40ANDT( T 
, 2 ) <=MX-AA キ 28+48 )T(T,F) =T(T,F)+O:T(T,G)= 


ZsGOTO330 
300 TF(T(T,Z) >=MX-1 2ANDT ( エ , 2 ) <=MX+1 2 ) GOT 


O470 

310 TFT(T,G)=Z T(T,G) =O:GOTO340 

320 T(T,F) =T(T,F)-O:T(T,G) =Z:TFT(T,F)<Z 
T(T,F) =Z 

330 TFT(T,F)>G T(T,F) =G 

340 T(T,S)=-(T(T,F)+T)*8: TFT(T,F)=G T(T, 


) =-8:T( エ ,〒) =2 

50 GOTO400 

360 TEF(T(T,F) =G ANDT(T,O) <=Z ) GOTO440 
370 TP(P(TzT)=2 ANDT(T,F) =S)T(T,S) =8:GOT 
O390 

380 TFT(T,EF)<>G T(T,S) =T(T,S)+8 

390 T( エ , 0): = エ Y 


) MODF+O RETURN 


)MODF+O:T(TT,Z)=RND( 1 
TrTz8)-8:m( 


420 FORTT=O TO( ME- 

9 ) *8+32sT(T エ T,O) =Z:T( エエ T,T) =2 

TT,F ) =S:T(TT,G) =Z・SPRTTETT:NEXT < 

430 FORJ=O TOF:SPRTTEJ:NEXT 

TNT "STAGE" : ME: PLAY"T505C104B( 

#A# が GFF " :PAUSE20 sLOCATEF, 7 < PRTNq 
":RETURN 

440 SC=SC+ME 

7 流 の に ま ( 邊 C 1 。 S) :PLAY"m504F1EE" < 

8> = (ME-O) MODF+O GOTO460 

450 GOTO370 

460 TS=ZkME=ME+O:GOTO30 

470 RI MA=MA- 


LOCATPE24。11。 PRTNTRTGHT*(" 


CATE8 , 7 : PR 
TNT "GAME OVER" 

500 LOCATE6,13:TNPUT"REPLAY(Y/N) "2O$:TFL 
EFT$(O$,O)<>"N"CLS:VTEW :GOTO20 

510 END 
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5 DTM A(25,18) 

10 CGSET, 0 :SPRTTEON :VTEW :K=1 : TE=0:PLAY"T 
1M1V802" 

20 X=RND( 20 )+2:Y=RND( 14 )+3 

30 FOR O=0TO25:FORT=0TO18 :A(O,T ) =0 : NEXT : 
NEXT 

40 LOCATE X,Y:PRTINTCHR$( 1 99 ) 

100 8S=STTICK( 0 ) : TEF S=0O THEN 110 

105 K=S 

110 ON K GOSUB 200,210,249,220,249,249,2 
49,230 

120 LOCATE X,YsPRTNT"* リ smTE=TE+10sPLAY"O2 
A0sCO0sE0" 

130 GOTO 300 

190 OCGATE 5 22kPRINTO "テン ラル みみ 702 と 
18 

199 GOTO 100 

200 X=X+1:RETURN 

210 X=X-1・:RETURN 

220 Y=Y+1 :RETURN 

230 Y=Y-1 :RETURN 


249 RETURN 
300 TF X>25 OR X<2 OR Y>18 OR Y< ぅ 3 THEN 1 
500 

310 TF A(X,Y)=1 THEN 1500 

399 A(X,Y)=1:GOTO190 

1500 CLS:TE HIT<TE THEN HT=TEsPLAY"'O4" 
1510 LOCATE 5,20:PRTNT " ムイ ュ ュ ァ ー "ziHTz" 


ー ヽ 『6 

ーー 

1520 LOCATE 5,22:PRTNT リィ イマ / スコ ュ ァ "kmEil 
ー ヽ 16 

メデ 


1530 FOR D=0 TO 10:PRTNT:PLAY"CO skEOsGO": 
PAUSE4 NEXT 

1540 PRTNPT “ モッ イチ ド ゲー ム ラ ッ マ ス 2 ヵ ?" 

1550 PRINT:PRTNT" ス メル ナラ ヤマ シナ イナ ラ N ヲ ォ ス 『 
1560 A$=TNKEY$:TF A$=" "THEN1560 
1570 IF 1 人 1 49 
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100 CGEN2 :CGSET1 , 0 :CLS :SPRTTEON :CLS :VTEW 
: DTMTR ( 6 ) : SN= 1 : TN=7 

120 DEFSPRTTEO,(0,1,0,0,0 ) =" ビ フ ベ ポリ"sDEFSPR 
TTE1,(0,0,0,0,0 ) =CHR$( 21 3 ) : LEF= 3 : SC=0 : LOC 
ATEO0,22:PRTNT "SCORE 0" 

130 MX=120:MY=136:SPRTTE0 ,MX , MY 

300 EE=30 :BB=0 :SP=5-SN: TFSP<1SP= 1 

310 FORT=0TO7 : POSTTTONT , RND( 256 ) , 0 : NEXT 
320 LOCATE10,10:PRTNT "STAGE" : SN : PAUSE150 
:LOCATE10,10:PRTNT" MM 

500 GOSUB1000:GOSUB3000 : TFTN=0LOCATE8, 1 2 
:PRTNT "GAME OVER "' :END 

51 1 TFEE GOTO500 

515 ゼ FORT=0TO7 s CUTT s ERAT s NEXT 

520 B=0:LOCATE8,10:TFBB=0PRTNT "VERY"' : :B= 
B+100 

530 TFBB<4PRTNT" GOOD" sB=B+100 

550 LOCATE5,12:TFB=0PRTNT "NO _ BONUS" : PAUS 
E80 :GOTO590 

570 PRTNT"BONUS": Bi "0 POTNTS" 

っ 80 FOR エ =1TOB : SC=SC+ 1 :LOCATE5, 22 : PRTNTSC 


2 


0” sNEXT 

590 FORT=10TO12STEP2:FORJ=0TO27:LOCATEJ 。 
TsPRTINT" "2:NEXT:NEXT 

800 SN=SN+1 :GOTO300 

1000 ST=STTCK( 0 ) : IFST=0GOTO2000 

1010 TEFST AND1GOSUB1100 

1020 TFST AND2GOSUB1 1 50 

1030 TFST AND4GOSUB1200 

1040 TFST AND8GOSUB1250 

1050 SPRTTE0,MX,MY:sGOTO2000 

1100 TFMX=240RETURN 

1110 MX=MX+8:RETURN 

1150 TEFMX=0RETURN 

1160 MX=MX-8:RETURN 

1200 TFMY=168RETURN 

1210 MY=MY+8:RETURN 

1250 TFMY=16RETURN 

1260 MY=MY-8:RETURN 

2000 1TF(STRTG( 0 ) AND1 2 ) =0RETURN 

2500 エ =3 

2510 TFABS(MY-YPOS( 1 ) ) <1 6TFABS (MX-XPOS(+ 
) ) <1 68C=SC+ 1 : BEEP : CUTT :ERAT : POSTTTONT , RN 
D( 256 ) , 0 :LOCATE5,22:PRTINTSC』 "0" 7:EE=EE-1 
: TFEE=O0RETURN 

2530 TFT エ = エ -1 :GOTO2510 

2550 RETURN 

3000 エ =3 

3010 TEFMOVE( 1 ) =0DEFMOVE ( 1 ) =SPRTTE( 5,RND( 
3 )+4 ,SP, 32 ) :MOVET :GOTO3050 


ファ ミリ ー ベ ー シ ッ フ 10 作 . 


3030 TFYPOS( 1 ) <160GOTO3050 

3035 FORJ=1TO3 : BEEP :NEXT:X=( XPOS( T ) / 8-2 ) 
/ 4 : IFX>6X=6 

3036 TFTR(X)GOTO3045 

3040 TR(X) =1 :TN=TN- 1 :BB=BB+ 1 : メ =X メ * ネ 4 sTLOCATT 


EX,19:PRTNT" リ "ELOCATEX , 20 :PRTNT" ": 
3045 POSTTTONT , RND( 256 ) , 0 :EE=EE- 1 : TFEE=0 
RETURN 


3050 TFT エ = エ -1sGOTO3010 
3060 RETURN 
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) , 
70 
80 
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110 
120 
130 
140 
ら SS= 
150 
TFS 
160 
ら ご = 


う に フ 
ひび し 8 
も も て - 4 7 
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- の 右 # ニ 上 
や ん の タニ ミニ ず ボ 
ら ニ こ に に みん | 
4 し ダ ン ニン ミ ニル 
て ニュ に わ み タ や 
し タダ つ つっ つ に ハハ 
ま 以 め て 変 ^ エ 
う 外 : て カ 化 : さ 
の に し = ニ すん 
て まるまる さる と 
注 s* わ お ん か 攻 : 
DTM A(7,1 ) 
HS=0 
CGSET , 0 :SPRTTEON : CLS :VTEW 


MA= 3 sSC=0 : ME= 1 

GOSUB310 

GOSUB 2000 

LOCATE22,7sPRTNTRTGHT$(" リ "+STR$ ( HS 


4 ) 
S=STTCK( 0 ) : IFMOVE( 0 ) GOTO190 


ST=0 

TFS=1 SS=3 : ST= 1 

TFS=2 SS=7 :ST= 1 

TFS=8 SS=1 : ST=1 

TFS=4 SS=5 :Sm= 1 

TFST=0 GOTO240 

TFXPOS ( 0 ) <24 POSTTTON0 , 20, YPOS( 0 ) : TF 
7 GOTO240 

TFXPOS( 0 ) >136 POSTTTON0 , 1 40,YPOS( 0 ) : 
S=3 GOTO240 

TFYPOS( 0 ) <32 POSTTTON0 , XPOS( 0 ) , 28 : TF 
1 GOTO240 


グ 2% 
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170 TIFYPOS( 0 ) >164 POSTTTON0 , XPOS( 0 ) , 168: 
TFSS=5 GOTO240 

180 DEFMOVE( 0 ) =SPRTTE( 0,SS,5, 2 ) :MOVE0 
190 A1=CRASH( 0 ) : TFA1>1 GOTO700 

200 OO=0 :FOR エ エ =3TO7 : TFA( TT, 0 ) =14 GOSUB7 3 
0 

210 TEFA(TT,0)=0 OO=OO+ 1 

220 NEXT 

230 TFOO=5 GOTO880 

240 T=STRTG( 0 ) : TEF ( MOVE( 1 ) =0 ANDT=8 ) POSTT 
TON1 , XPOS ( 0 ) , YPOS ( 0 ) : DEFMOVE ( 1 ) =SPRTTE ( 1 
0 , SS, 1 , 8 ) : MOVE 1 

250 A2=CRASH( 1 ) : TFA2> 1 GOSUB650 :GOTO270 
260 AO=0 

270 TFMOVE ( 1 ) =0 ERA1 

280 GOSUB400 

285 GOSUB 1000 

290 GOTO70 

300 STOP 

310 DEFMOVE( 0 ) =SPRTTE( 0 ,3,5,1,0,0 ) :MOVE0 
320 FOR エ T=3TO7:A=RND( 3 ) 

330 A(T, 1 ) =RND( 4 ) *2+1 

340 TFA=0 A(T, 0 ) =2:GOTO370 

350 TEFA=1 A(T,0 ) =4 :GOTO370 

360 A(T,0 ) =11 

370 DEFMOVE( 1 ) =SPRTTE(A(T,0),A(T, 1 ) ,4,2, 
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0 ,RND( 4 ) ) : POSTTTONT , RND( 1 1 2 ) +2 4 , RND( 1 32 ) 
+32 MOVE1 

380 NEXT 

390 RETURN 

400 A=RND(5)+3 

410 TFA(A,0 ) =14 RETURN 

420 TFA(A,0 ) =0 RETURN 

430 TIFMOVE(A) RETURN 

440 1TF(A(A,0)=2 ANDRND( 2 ) =0 ) GOTO930 

450 AA=RND( 4 ) *2+1 

460 TFXPOS(A)<26 POSTTTONA, 20,YPOS(A) : TF 
AA=7 RETURN 

470 TFXPOS(A)>134 POSTTTONA, 140,YPOS(A) * 
TFAA=3 RETURN 

480 1TFYPOS(A)<34 POSTTTONA , XPOS(A ) , 28: TF 
AA=1 RETURN 

490 TFYPOS(A) >162 POSTTTONA ,XPOS(A ) ,168: 
TFAA=5 RETURN 

500 A(A,1 ) =AA 

510 DEFMOVE(A) =SPRTTE(A(A,0),A(A,1 ),16,8 
) : MOVEA 

520 A1=CRASH(A) :TF(A1=0 ANDA(A, 0 ) =2 ) GOTO 
540 

530 RETURN 

540 DEFMOVE( 0 ) =SPRTTE (0,0,1,1 ) :MOVE0 

550 PLAY"O4C0O03BABO4CRC:O3FOEDEFRE" 

560 MA=MA- 1 sSPRTTEOFF 
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yewrr 
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570 LOCATE19,17sPRTNT" フ コリ iMA7 ニン 

580 TFMA=0 GOTO600 

590 SPRTTEON:GOTO50 

600 LOCATE4,10:PRINT "GAME OVER" 

610 TFHS<SC HS=SC 

620 LOCATE5,12:TNPUT "REPLAY(Y/N) ”:O$ 

630 ITFLEFT$(O$, 1 )="Y" GOTO30 

640 CLS:SPRTTEOFF : END 

650 TFA2=AO RETURN 

660 TFA(A2,0 ) =2 CUTA2:A(A2, 0 ) =4 :DEFMOVE ( 
A2 ) =SPRTTE(A(A2,0 ) ,A(A2,1 ) , 1 , 1 ) : MOVEA2 :A 
0=A2 :RETURN 

670 TFA(A2,0)=4 CUTA2:sA(A2, 0 ) =1 1 : DEFMOVE 
(A2 ) =SPRTTE(A(A2,0 ) ,A(A2,1 ) , 1 , 1 ) :MOVEA2 <: 
AO=A2 : RETURN 

680 TFA(A2,0)=11 CUTA2:A(A2, 0 ) =2:DEFMOVE 
(A2) =SPRTTE(A(A2,0) ,A(A2,1 ) ,1,1 ) :MOVEA2: 
AO=A2 

690 RETURN 

700 TFA(A1,0)=11 CUTA1:PLAY"O4COEG:sO3F0A 
O4C"sA(A1,0)=14 

710 TFA(A1,0)=2 GOTO540 

720 GOTO200 

730 TESS=1 POSTTTONTT , XPOS( 0 ) , YPOS( 0 ) - 16 
: DEFMOVE ( エエ ) =SPRTTE ( A( エエ T, 0 ) , 0 , 1 , 1 ) : MOVE エ 
TsGOTO780 

740 TFSS=3 POSTTTONTT , XPOS( 0 ) +16,YPOS( 0 ) 
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の か も つっ AZ た か か か オ 


: DEFMOVE( エエ ) =SPRTTE(A(TT,0),0,1,1 ) :MOVET 
T :GOTO780 

750 TFSS=5 POSTTTONTT , XPOS( 0 ) , YPOS(0)+16 
: DEFMOVE( IT ) =SPRTTE(A(TT,0),0,1,1 ) :MOVET 
T :GOTO780 

760 IFSS=7 POSTTTONTT , XPOS( 0 ) -16,YPOS( 0 ) 
: DEFMOVE ( TT ) =SPRTTE(A(TT,0) ,0,1,1 ) :MOVET 
T :GOTO780 

770 RETURN 

780 TF(XPOS( TT ) >=150 ANDYPOS( IT ) = 56 ) GOTO 
800 

790 RETURN 

800 DEFMOVE( TT ) =SPRTTE(A(TT, 0 ),3, 3,8) :MO 
VETT 

810 PLAY"O4COEGO5CO4EGO5C:O5C0O4BABO5CDC 
8 


820 TFMOVE ( TT ) GOTO820 

830 DEFMOVE( IT ) =SPRTTE(A( TT, 0 ) , 5, 3, 24 ) :M 
OVETT 

840 TFMOVE( TI ) GOTO840 


850 ERATT 

860 A(TT, 0 ) =0 : SC=SC+ 1 :LOCATE22 , 4 : PRTNTRT 
GHT$(" "+STR$( SC) , 4 ) 

870 RETURN 


880 SPRTTEOFF :ME=ME+ 1 :LOCATE4 , 10:PRTNT"S 
TAGE " : ME 


ファ ミリ ー ペ ベー シック 


890 PLAY"R1:sR1" 
900 PLAY"O4AFDFARGECEG:O4GECEGRECO3AO4CE 
LU 


910 PBAUSE50 
920 LOCATE4,10:PRTNT" リ ェ SPRTTEO 


Ns GOTO50 

930 O=CRASH(A) : TEFO>0 GOSUB1000 

940 TFRND( 2 ) =0 GOTO970 

950 TFXPOS( A ) <XBOS(0) AA=3sGOTO500 

960 TFXPOS(A) >XPOS(0) AA=7:GOTO500 

970 TFYPOS(A ) <YPBOS(0) AA=5:GOTO500 

980 TFYPOS(A ) >YPBOS(0) AA=1 sGOTO500 

990 GOTO500 

1000 TFXPOS( 2 )<26 DEFMOVE( 2 ) =SPRTTE ( 5 ,RN 
DD( 2 ) ギラ + ラ 2 6 。4 ) 

1010 TFXPOS( 2 ) >134 DEFMOVE ( 2 ) =SPRTTE(5,R 
ND( 2 ) *2+6,8,4) 

1020 TFYPBOS( 2 ) <34 DEFMOVE( 2 ) =SPRTTE( 5,RN 
D( 2 )*2+4,8,4) 

1030 ITFYPOS(2)>162 DEFMOVE ( 2 ) =SPRTTE( 5,R 
ND( 2 )*6+2,8,4) 

1040 MOVE2 :MM=CRASH ( 2 ) : TFMM=0GOTO540 
1050 TFMM<2 RETURN 

1060 TFA(MM,0)=4 A(MM,0 ) =2 CUTMM: RETURN 
1070 TFA(MM, 0 ) =1 1 A(MM, 0 ) =2:CUTMM : RETURN 
1080 RETURN 
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100 DTMTL,( 7, 7 ) :CGEN2 :CGSET1 ,0:S=4:G=0 
110 SPRTTEOFF :FORT=0TO7:CANT:NEXT:PLAY"T 


2V1 5Y0M0O3R0" 
120 CLS:GOSUB790 :GOSUB800:PRTNT"# 正幸 


E ササ 嫌 色 所 邑 #"<GOSUB800 :GOSUB790 
130 FORT=3TO8 :LOCATE5 , エネ 2+2:PRTNTRTGHT$ ( 
STR$ ( エネ エー-1 ) , 2 ) : 。 PUZZLE Pcru" PE で 7 ) 
リ sNEXT 

1 40 LOCATE0, 23:PRTINTCHR$(180 ) : HUDSON SO 
FT 1985 BY TTA': 

150 LOCATE3,S*2+2:PRTNTCHR$( 207) 

160 T=RND( 32767) 

170 GOSUB810:GOSUB830 : TFK=1GOTO200 

180 LOCATE 3,S*2+2:PRTNT" <sPLAY"C :S=S+ 


190 GOTO150 
200 PLAY"CRER'":S1 =S- 1 :SS=S* ら S 
210 FORT=3TO8 :LOCATE 3 , エネ 2+2:PRTNT" 
<NEXT 
220 FORT=0TO2 :LOCATE10, エ *2+10:PRTNT” GAME 
":CHR$(65++ ) : NEXT 
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230 LOCATE8,G*2+10:PRTNTCHR$( 207 ) : 

240 GOSUB81 0 :GOSUB830 : IFK=1GOTO270 

250 LOCATE8 ,G ネ 2+10sPRTNT" 2 spPLAYVC" GEG 
+ | s TFG= 3G=0 

260 GOTO230 

270 PLAY"CRER " : TFG SP=( S*60-150 ) /Gs TFSP> 
255SP=0 

280 CLS sPRTNT" キ "<S8-1・" PUZZL 選 *※ ま - GA 
ME "7CHR$( 65+G) : " ー":PRTNT 

290 PRTNTCHR$( 239 ) : :FOR エ =1TOS1 :GOSUB780 <・ 
PRTNTCHR$( 234 ) : : NEXT:GOSUB780 : PRTNTCHR$ ( 
240 ) :FOR エ =1TOS1 :GOSUB750 : PRTNTCHR$( 236) : 
・FORJ=1TOS1 :GOSUB780 : PRTNTCHR*$( 232 ) : :NEX 
TiGOSUB780 : PRTNTCHR$( 235 ) : NEXm 

300 GOSUB750:PRTNTCHR$ ( 241 ) : :FORT =1TOS1 
GOSUB780:PRTNTCHR$( 233 ) : : NEXT : GOSUB780・p 
RTNTCHR$ ( 242 ) :PRTNT:PRTNT" チョット マッ テ ネ 』 > 正 O 
RT=0TOS1 :FOR ゴ =0TOS1 : TL ( ゴ , T ) = エネ S+ け + 1 ・ NEX 呈 
・NEXT: BX=S1 : BY=S1 : ゴ =CSRL,TN :FORT=1TOSS/ 2: 
PRTNT”?「 jsNEXTsLOCATE0, け 

310 RESTORE:CN=16:DS=0 :FORT=1TOSS/ 2 FORK 
=1TO5 : MX=RND( S ) : MY=BY : GOSUB6 40 :MX=BX・MY= 
RND(S ) : GOSUB6 4 0 : NEXT:PRTNT" リ "7 EREADA$: PL 
AYA$ CN=CN- 1 : TFCN=0RESTORE ・CN=1 6 

320 NEXT 

330 DS=1 :FORY=0TOS1 :FORX=0TOS1 :GOSUB710・ 
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NEXT : NEXT:CX=BX sCY=BY : LOCATEO0 , 4+S*2sPRTN 
Ju "<:SPRTTEON : DEFMOVE( 0 ) =SPRTT 
E(0,1,4,30,0,0 ) :POSTTTON0 , (CX*3+3 )* ネ 8 ,(CY 
* ネ 2+5 ) *8+62:MOVE0 

340 PLAY"T104Y2C3R6E3RERDR6F3RFRE3R6": PL 
AY"G3RGRFR6A3R6RO0Y0" 

350 TFG=0GOTO380 

360 DEFMOVE( 1 ) =SPRTTE(14,0,1,1,0,3) : POS エ 
TTON1 ,240,196:MOVE1 :DEFMOVE( 1 ) =SPRTTE( 1 4 
, 7,SP, 1 20 ) : MOVE1 :LOCATE0 ,21 :PRTINT "HELP!" 
370 DEFMOVE( 2 ) =SPRTTE( 1,0,1,1,0,0 ) :POSTT 
TON2 ,0,196:MOVE2 

380 TFG TFCRASH( 1 ) =2FOR エ =0TO2 : CUTT : NEXT < 
LOCATEO0,21:PRINT "AHHH" :FOR エ =1TO10:PLAY"C 
DEF"'sNEXT:SPRTTEOFEF :CLS :LOCATE8 , 1 2 : PRTNT 
"GAME OVER " :LOCATE6 ,15:PRTNT"(TTME OUT! 

) ":FORT=1TO5000:NEXT:GOTO110 

390 ONSTTICK( 0 )GOSUB550,570,570,590,550,5 
70,570,610,550:GOSUB760 : IFSTRTG( 0 ) =0GOTO 
380 
400 TFCX=BX GOTO430 

410 V1=3:V2=7: TFCX<BX SWAPV1 ,V2 

420 GOTO440 

430 V1=5:V2=1 :TFCY<BY SWAPV1 ,V2 

440 DEFMOVE( 0 ) =SPRTTE( 0 ,V1,1,2 ) :MOVE0 : PL 
AY"C" szGOSUB760:DEFMOVE( 0 ) =SPRTTE( 0,V2,1, 
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2 ) :MOVE0:PLAYV"E"sGOSUB760 :MX=CXsMY=CY:GO 
SUB640:T[=0 


450 


っ 00 


うり 

TFTL( け , エ ) <> エ ネネ S+J+1GOTO380 

= け + ] s TFJ<S GOTO460 

エ =]+ 1 ・ TFT<S GOTO450 

TFG CUT1 :LOCATEO,21:PRTNT "THANK YOU! 


PLAY"T3V1503MO :T3V1004IO :T3V1 5MO" : BL 


AY"G2R0G1R0G:E2ROE1ROE:O1C3O00G":PLAY"A3B 
04:G3B:O1CO0G":PLAY"C9:G9:O1CO0GO1CO0GO1 


C5『 
510 
520 
/ 2 ) 
530 
540 


TFG=0GOTO540 

DEFMOVE( 1 ) =SPRTTE(14,3,1,120-XpPOS( 1 ) 
: MOVE 1 

TFMOVE( 1 ) GOTO530 

GOTO110 
TFCX<S-1CX=CX+ 1 sV=3:D=1 2 GOTO630 
RETURN 
TFCX>0CX=CX- 1 sV=7:D=1 2 sGOTO6 30 
RETURN 
TFCY<S-1CY=CY+ 1 :V=5:D=8:GOTO6 30 
RETURN 

TFCY>0CY=CY-1 sV=1 sD=8:GOTO6 30 

RETURN 

DEFMOVE( 0 ) =SPRTTE( 0,V, 1 ,D) :MOVE0 : RET 


640 TEF( (MX=BX ) XOR (MY=BY ) ) =0RETURN 

650 ITFMY=BY GOTO680 

660 X=MXsTFMY<BY FORY=BY TOMY+1STEP- 1 : TL 
( MX,Y) =TL(MX,Y-1 ) :GOSUB7 1 0 :NEXT:GOTO700 
670 FORY=BY TOMY-1 :TL(MX,Y ) =TL (MX,Y+1 ) :G 
OSUB71 0 s: NEXTsGOTO700 

680 Y=MYsTFMX<BX FORX=BX TOMX+1STEP-1 sTL 
(X,MY ) =TL(X-1 ,MY ) :GOSUB71 0 :NEXT:GOTO700 
690 FORX=BX TOMX-1sTL(X,MY) =TL(X+1 ,MY ) :G 
OSUB7 1 0 s NEXT 

700 TL(MX,MY ) =SS : BX=MX : BY=MY :X=BX:Y=BYsG 
OSUB7 1 0 : RETURN 

710 TFDS=0RETURN 

720 LOCATEX ネ 3+1 ,Y*2+3: TFTL(X,Y)=SS PRTNT 
リリ sRETURN 

730 PRTNTRTGHT$( STR$( TL(X,Y) ) , 2 ) : RETURN 
740 BEEPsFORT=1TO2000:NEXT:RETURN 

750 FORJ=1TOS : PRTINTCHR$( 238 ) 7 CHR$( 32 ) ? CH 
R$( 32) : : NEXT:PRTNTCHR$ ( 2.38 ) : RETURN 

760 ITFMOVE( 0 ) GOTO760 

770 RETURN 

780 PRTNTCHR$( 237 ) :CHR$(237 ) : :RETURN 

790 PRTNT た た が が が が が が が が が が が が が が が が が が が が が <R 
ETURN 

800 PRINT"# 2 拓 - お 3 
ETURN 

810 TFSTRTG( 0 ) AND3GOTO810 

820 RETURN 

830 K=STRTG( 0 ) AND1 : ITFK RETURN 

840 K=STRTIG( 0 ) AND2 : IFK RETURN 

850 GOTO830 

860 DATAA,/F,/G,/C,C,/G,A/F,/F, AG,C,/C/G/ 人 AF 
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10 CGSET, 0 :SPRTTE ON:CLS 

20 PALETS 3,&HF,&H30,&H26,&H12 

30 PALETB 0,1,58,24,16 

40 GOSUB700 

45 DEF MOVE( 3 ) =SPRTTE(15,0,0,0,0, 3 ) :MOVE 


50 DEF MOVE(0)=SPRTTE(4,5,1,46,0,0) 

60 POSTTTONO0, 120,0 

70 MOVE0 

80 PLAY"'O4FOEDEFEDEFEDEFE " 

90 LOCATE0 , 2 3 :FOR X=O0TO10:PRTNTCHR$( 219) 
7 :NEXTsEFORX=10TO15: PRTNT" "7 kNEXTsFEORX= 1 
5TO24:PRTNTCHR$( 219 ) : :NEXT: PRTNT 

100 MX=120:T エ =100:TE=0 

110 RESTORE 670 

120 'MATN 

130 LOCATE 0,0:PRTNT"" テン メッ リ zTE:LOCATE 1 
5 , 0 : PRTNT"TTME "<:T エ 

140 S=STTCK( 0 ) 

150 GOSUB 470 

160 TF S=1 GOSUB270 


グ タ の 


34 
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170 TF S=2 GOSUB300 

180 TEF S=8 GOSUB330 

190 GOSUB750 

200 GOSUB490 

210 GOSUB510 

220 GOSUB360 

225 GOSUB 1000 

230 TE=TE+1 smT エ =T エ - 1 

240 1TF TE=60 GOSUB740 

250 TF TT<0 GOTO 520 

255 GOSUB 1000 

260 GOTO 120 

270 DEF MOVE( 0 ) =SPRTTE( 4,3,3,4,0 ) 

280 MOVE 0 

290 RETURN 

300 DEF MOVE( 0 ) =SPRTTE( 4,7,3,4,0) 

310 MOVE 0 

320 RETURN 

330 DEF MOVE( 0 ) =SPRTTE( 4,1,3,4,0) 

340 MOVE 0 

350 RETURN 

360 ITF SCR$(XPOS( 0 ) / 8- 2 , YPOS( 0 ) / 8 - 2 ) =CHR 
$(219) GOSUB 410 

370 TF SCR$(XPOS( 0 ) / 8- 1 , YEBOS( 0 ) / 8- 2 ) =CHR 
$(219) GOSUB 410 

380 TF SCR$(XPOS( 0 ) / 8- 2, YPOS( 0 ) / 8- 1 ) =CHR 
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$(219) GOSUB 410 

390 TF SCR$(XPOS( 0 ) / 8- 1 , YPOS( 0 ) / 8- 1 ) =CHR 
$( 219) GOSUB 410 

400 RETURN 

410 X=XPOS( 0 ) :Y=YPOS( 0 ) 

420 DEF MOVE( 0 ) =SPRTTE(10,5,1,4,0) 

430 POSTTTON 0,X,Y-8 

440 MOVE 0 

450 PLAY"M1V403C0GAGDG" 

460 TE=TE-5:RETURN 

470 READAsTFA=0THENRETURN110 

480 RETURN 

490 FOR K=A-2 TO A 

500 LOCATEK, 23:PRTNTCHR$( 219) : :NEXT s RETU 
RN 

510 FORX=A TOA+5:PRTNT" "jsNEXTsFEORX=A+6 
TO A+8sPRTNTCHR$(219): :NEXTs PRTNTsPRTNT < 
RETURN 

520 READ AkPRTINT'' 六 玉 玉 玉 米 玉 玉 玉 来 末 ニニ ーーー 玉 玉 素 素 氷 
玉 玉 玉 * り 

530 FORZ=1TO5:PRTNT:NEXT 

540 DEF MOVE(0)=SPRITTE(4,5,1,60,0) :MOVE0 
550 PLAY"O2C3E1EERC3G2D1E" 

っ 70 TF TE>HS THEN HS=TE 

580 PRTNT "ゲー ム シュ ウリ ョ ウリ 

590 PRINT "トク テン "TE 


600 PRTINT サイ コウ トク テン 7HS 


630 PRTNT モウ ゥ イチ ド ゲー ム ヲ シマ スカ  !!1 Y/N 『" 
640 A$=INKEY$:ITF A$="Y”" PHEN SPRTTE OFF< 
CES:GOPO10 


650 TF A$="N'"'THENEND 
660 GOTO 640 


670 DATA 10,9,9,8,6,5,6,4,3,2,3,4,5,6,7, 
8,9,10,11,10,9,8,9,10,11,11,11,12,13,14, 
16,17,18,16,15,14,12,10,9,9,9,8,7,6,5,6, 
7,8,7,6,5,4,3,4,5,6,7,9,10,10 

680 DATA 8,7,6,5,6,7,8,9,10,11,10,9,8,9, 
10,11,11。11,12,13,14,16,17,18,16,15,14,1 
2,10,9,9,9,8,7,6,5,6,7,8,7,6,5,4,3,4,5,6 
,/7,9,10,10,8 

690 DATA 7,5,6,4,3,3,3,4,5,6,7,8,9,10,10 
11,12。13,/12,11,10,9,7,6,5,4,4,5,6,5,6,7 
,8,9,10,0 


700 LOCATE12,10:sPRTNT "スラローム" 

710 PLAY"T3O3C3E4G3A4F3D3EF4D3C5R3" 

720 PLAY"'O2A303C4D3F4D3F3O4C703A7" 

730 RETURN 

740 DEF MOVE( 3 ) =SPRTTE( 15, 3,5,150,0,2 ) :P 
OSTTTON 3,0,100:MOVE 3 : RETURN 

750 PBLAY'O4EDEF" :RETURN 

1000 TF CRASH ( 0 ) =3 THEN TE=TE- 1 

1020 RETURN 
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CGSET , 0 sSPRTTEON s CLS 
GOSUB900 :sVTEW 
DEF MOVE( 0 ) =SPRTTE( 4,3,2,4,0,0) 
POSTTTON0,112,158:s:MOVE0 
DEEF MOVE( 1 ) =SPRTTE(11,3,2,4,0,3) 
POSTTTON 1,.90,100:sMOVE 1 
PO=0 s TE=0 
LOCATE 0,22:sPRTNT'" リ テン スッ も りす T 
< 中 十 ・『 1 

「/ ず 
8S=STTCK(0) :T=STRTG(0) 
TFMOVE(0)=0 ONS GOSUB150,200,190,240, 
/190,.190,280,190 

TF PO=1 GOSUB400 

TEF PO=0 GOSUB320 

GOSUB 350 

GOSUB 490 

GOTO 80 

A$=SCR$( XPOS ( 0 ) / 8 , YPOS( 0 ) / 8- 2 ) 
B$=SCR$ (XPOS( 0 ) / 8 , YPOS( 0 ) / 8- 1 ) 

TF A$=CHR$(195) OR B$=CHR$( 195 ) THEN 
URN 
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180 DEF MOVE( 0 ) =SPRTTE( 4,3,1,4,0 ) :MOVE0 : 
GOSUB7 4 0 : RETURN 

190 RETURN 

200 A$=SCR$( XPOS ( 0 ) / 8 - 3 , YPOS( 0 ) / 8-2 ) 

210 B$=SCR$( XPOS( 0 ) / 8- 3 , YEPOS( 0 ) / 8-1 ) 

220 TF A$=CHR$(195) OR B$=CHR$(195) THEN 
RETURN 

230 DEF MOVE( 0 ) =SPRTTE( 4,7,1,4,0 ) :MOVE0: 
GOSUB7 40 : RETURN 

240 A$=SCR$( XPOS( 0 ) / 8- 2 , YPOS( 0 ) / 8 ) 

250 B$=SCR$( XPOS( 0 ) / 8- 1 , YPOS( 0 ) / 8 ) 

260 ITF A$=CHR$(195) OR B$=CHR$(195 ) THEN 
RETURN 

270 DEE MOVE( 0 ) =SPRTTE( 4 ,5,1,4,0 ) :MOVE0 : 
GOSUB740:RETURN 

280 A$=SCR$( XPOS( 0 ) / 8 - 2 , YPOS( 0 ) / 8- 3 ) 

290 B$=SCR$( XPOS( 0 ) / 8- 1 , YBOS( 0 ) / 8- 3 ) 

300 TF A$=CHR$(195) OR B$=CHR$(195) THEN 
RETURN 

310 DEEF MOVE( 0 ) =SPRTTE( 4,1,1,4,0 ) :MOVE0 * 
GOSUB7 4 0 :RETURN 

320 X1=RND( 27 ) :Y1 =RND( 20 ) 

330 ITF SCR$(X1,Y1 ) =CHR$( 32 ) THENLOCATEX1 
/Y1 :PRTNT CHR$(199) :PO=1 :TT=50 

340 RETURN 

350 TF SCR$(XPOS( 0 ) / 8 - 2 , YBOS( 0 ) / 8 - 2 ) =CHR 


aa 226 m 


$(199) THENLOCATE X1,Y1 :PRTNT" "smTE=TE+ 中 
T : PO=0 :LOCATE6 ,22:PRTNTTE 

360 TEF SCR$(XPOS( 0 ) / 8- 1 , YBOS( 0 ) / 8 - 2 ) =CHR 
$(199 ) THENLOCATE X1,Y1:PRTNT"" ": TE=TE+ 呈 
T : PO=0 :LOCATE6 , 22:PRTNTTE 

370 TF SCR$( XPOS( 0 ) / 8- 1 , YBOS( 0 ) / 8 - 1 ) =CHR 
$ (199 ) THENLOCATE X1,Y1sPRTNT" ":TE= 呈 E+ 中 
T : PO=0 :LOCATE6 , 22 :PRTNTTE 

380 TF SCR$(XPOS( 0 ) / 8- 2 , YBOS( 0 ) / 8- 2 ) =CHR 
$(199 ) THENLOCATE X1,Y1 :PRTINT" ":TE=TE+ 呈 
T : PO=0 :LOCATE6 ,22:PRTNTTE 

390 RETURN 

400 TLT=T エ -1:TE 呈 T エ =O0 THEN 420 

410 LOCATE 19,22:PRTNTTT: " ":RETURN 

420 CLS:SPRTTE OFF 

430 LOCATE 5,5:PRTNT"GAME OVER" 

440 LOCATE 5,8sPRTNT "テン スウ ハー < 中 EE ツテ ン デス 2 
450 LOCATE 5,12sPRTNT"" モウ イチ ド シャ スカ ? Y/N" 
460 A$=TNKEY$:TF A$=""THEN460 _JN Ni 
470 TF A$="Y" THEN RUN 上 本 8 
480 END ーー 
490 TF(XPBOS( 0 ) -XPOS( 1 ) ) =0_ THEN GOTO 520 
500 TF(XPBOS( 0 ) -XPOS( 1 ) ) > 0 THEN GOSUB570 
510 TF(XPOS( 0 ) - XPBOS( 1 ) ) <0 THEN GOSUB620 
520 TF(YPOS( 0 ) - YPOS( 1 ) ) > 0 THEN GOSUB660 
530 TE(YPOS( 0 ) -YBOS( 1 ) ) <0 THEN GOSUB700 


0 CLS 
20 LOCATE 14、10:PRINT RND(6)+1 
30 A$=INKEY$:IF A$=" " THEN 旨 


40 GOTO 20 


さ ( い 
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540 XX=XPOS( 0 )+8:YY=YPOS( 0 )+8 

550 TF XPOS( 1 ) <XX AND (XPOS( 1 )+16) >XX AN 
D YPOS( 1 ) <YY AND (YPOS( 1 )+16 ) >YY _ THEN GO 
TO 420 

560 RETURN 

570 A$=SCR$( XPOS( 1 ) / 8 ,YPOS( 1 ) / 8-2 ) 

580 B$=SCR$( XPOS( 1 ) / 8, YBOS( 1 ) / 8- 1 ) 

590 TF A$=CHR$(195) OR B$=CHR$(195) THEN 
RETURN 

600 DEEF MOVE( 1 ) =SPRTTE(11,3,1,4,0) :MOVE 1 
: RETURN 

610 RETURN 

620 A$=SCR$(XPOS( 1 ) / 8- 3 , YPOS( 1 ) / 8-2 ) 

630 B$=SCR$(XPOS( 1 ) / 8-3,YPOS( 1 ) / 8-1 ) 

640 TF A$=CHR$(195) OR B$=CHR$(195) THEN 
RETURN 

650 DEF MOVE( 1 ) =SPRTTE(11,7,1,4,0 ) :MOVE1 
: RETURN 

660 A$=SCR$( XPOS( 1 ) / 8- 2 , YPOS( 1 ) / 8 ) 

670 B$=SCR$(XPOS( 1 ) / 8- 1 , YPOS( 1 ) / 8 ) 

680 TEF A$=CHR$(195) OR B$=CHR$(195 ) THEN 

RETURN 

690 DEEF MOVE( 1 ) =SPRTTE(11,5,1,4,0 ) :MOVE1 
: RETURN 

700 A$=SCR$(XPOS( 1 ) / 8-2,YPOS( 1 ) / 8 - 3 ) 

710 B$=SCR$( XPOS( 1 ) /8- 1 , YPOS( 1 ) / 8-3 ) 


720 TF A$= CHR$(195) OR B$= CHRS(195)THEN 
RETURN 


730 DEF MOVE( 1 ) =SPRTTE( 11,1,1,4,0) :MOVE1 
: RETURN 

740 PLAY"O3G104C1" :RETURN 

900 LOCATE8,5:PRTNT"HOT PENPEN" 

910 PLAY"O4C3C1R1C1R1C1R1A3A1R1":PLAY"G4 
F1G1A4C0R0C4D4C1F6" 

915 SPRTTE ON 

920 DEF MOVE( 0 ) =SPRTTE( 4,3,1,60,0,0):POS 
TTTON0,0,128:MOVE 0 

930 TEF MOVE(0) THEN930 

940 RETURN 


1 /、 2 ーー 
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F3F3F3 3IF3 F3IF3IF3 F3F3F3F3F3F 3F3F3F 3IF3IF3IF3IP3F3IF3F3IF3F3F3F3F3 
IF3IF 3F3IF3IF3F 3IF3IF 3F3IF3IF3IF3F 3F 3F3F3F3F3IF3IF3F3IF3F3IF3F3F3IF3IF3 
義 IF3F3 F3IF3 

MSIESI | | 1 1 1 | | | | 1 | | | OPD 「 FalFsl 
笑 F3IF3| IF3IF3IF3| | IFalFslFs| | | FslFalEsl | | 」F3IF3I F3| | IF3F3| 
5 F3F3 | [PF3IF3| F3| | IF3IF3IF3[ | 」 IF3IF3IF3] | | 3 IF3F3 本 IF3IF3| 

IF3IF3 IF3IF3IF3| F3F3F3 IF3IF3IF3 IF3IF3IFsl F3IF3 

| 国 早 画 還 画 画 画 画 遇 画 画 画面 晶 画 画 合 后 缶 
8 トイ lp 

F3IF3IF3IF3| | IF3lE3lF3l | 「 ]F3IF3F 3 1 IF 3IF3IF3|_ - F3F3IF3F F3| 
IIFSF3F3F3| | IFalF3lF3| | | IF3IF3IF3| | | jF3F3F3| | | 」F3IF3IF3IF3| 
F3IF3IF3IF3| | IF3IF3IF3| | | IF3IF3IFa| | | IF3F3F3| | _ IF3IF3IF3IFS 


F3IF3| | IF3IF3| | | FalFslE3l | 1 Fs 3IF3| | | |F3IF3IF3| | IFlFa 
IF3F3  、 IF3F3 | | F3F3F3| | | IFaF3F3| | | IF3IF3IF3| | jFalFs| 
9F3F3| 」 PF3F3| | | IF3IFFal | | |F3IF3IF3| | | jal3lF| | IF3lFa| 
時 上 上 上 上 上 上 上 上 上 上 ロゴ オオ トト 還 較 
18IF3F3 | | | | | [Pa 
F3F3F3F3F3F3F3F3IF3F3IF3IF 3F3IF3F3IF3F3F3F3IF3F3F3IF3IF3IF3IF3E F3 
20F3F3F3F3F3F3F3F3IF3F3IF3IF3F3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3IF3| 
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100 CGEN2:CGSET1 , 1 : DTMEV( 3 ) , EF ( 3 ) , ES( 3 ) , 
ET(3) :PLAY"mT1MOY0O2R0 "smTP=100 

110 SPRTTEOFEF :GOSUB970 :FORT=0TO7 : CANT : NE 
XTsSPRTTEON 

120 SC=0 : SN= 1 :LF=3 

130 互 =( (SN-1 ) AND1 ) *2+1 :EL=E+ 1 

1 40 VITEW:LOCATEO0,21:PRTNT "SCORE" SC "075 
:LOCATE13,21 :PRTNT "TANK" LEF 7 :kLOCATE21 , 21 
:PRTNT "STAGE"' z SN 

150 FORT=0TOE : ゴ = エ -T / 2*2 xsES( 1 ) =0 s EF ( [ ) =0 : 
EV( 1 ) =J*4+ 3 : DEFMOVE ( T ) =SPRTTE (13,EV( エ ) , 8 
,/16,0,3) : POSTTTONT ,J*192+24,168- エ *24sMOV 
ET:PLAY "CDEFGAB" : GOSUB950 s NEX 叩 

160 MV=7:SF=0:ST=3 : DEFMOVE ( 6 ) =SPRTTE (8,M 
V,1,44,0,1 ) :POSTTTON6 , 1 28 , 48 : MOVE6 

170 T=EL* ネ 100:sLOCATE10, 22:PRTINT"TTME'F/ 2 
180 PLAY"CRCRCRERERERCRCRCRFREFRER ": PIAY" 
DRDRDR#AR#AR#ARARARARARARARA"' 

190 GOSUB450:GOSUB71 0 sGOSUB920 

200 TF(STRTG( 0 ) AND1 ) PLAY"O3R4AEAEAE" : GOS 
UB960:SPRTTEOFEF :GOSUB1040:GOSUB1060・PIAY 


229 


で ロ プ メカ と さき さ 
き | ロ デ セ も セ も こ て 
る ド グ ィ イッ ク 
か ウラ デ トド ト で 
な ム の キ 
7? を ミ 
は 


"AEAEAEO2R0 " :GOSUB960 :GOSUB1 0 4 0 :SPRTTEON 
210 T=CRASH( 6 ) : TFT=-1ORT > 5GOTO350 

220 TFT>3GOTO290 

230 TFES(T ) =0GOTO290 

240 CANTsES(T ) =- 1 :SC=SC+1 0 :EL=EL- 1 :PLAY" 
BRERC" : GOSUB940:TFEL GOTO350 

250 GOSUB960:sT=T/2:PBLAY"O5" 

260 TFT=0GOTO280 

270 P=T-1 sSC=SC+ 1 :LOCATE14,22sPRTNTT "7" 
7 s:LOCATE5,21 :PRTNTSC "0" jsPBLAY"A"sGOTO26 
0 

280 CAN6:CAN7: SN=SN+ 1 : PLAY"O2"sGOSUB960: 
GOTO1 30 

290 CAN7:LEF=LF- 1 

300 FORT=1TO4 :FORJ= 1TO7 

310 TEFMOVE( 6 ) GOTO310 

320 PLAYMTD$( "CDEFGAB" ,RND( 7 ) +1 , 1 ) : DEFMO 
VE( 6 ) =SPRTTE( 8 , ゴ , 1, 2 ) :MOVE6 : NEXT : NEXT : CA 
N6 :LOCATE17,21:PRTNTLEF : :TFLF GOTO160 

330 SPRTTEOFF:CLS < 計時 12:PRTNT "GAME 


OVER " : TFSC>TP TP=S 
340 GOSUB960: GOS0B960 : GOTO110 


350 1=CRASH ( 7 ) : TFT<0GOTO410 

360 TFT=5CAN5: SC=SC+50:PLAY'"FRFRF":GOSUB 
940sGOTO410 

370 TFT>3GOTO410 


2 の Pa 


4 


380 TIFES( TI)GOTO410 

390 CUTTsES( 1 ) =1 :ET( T ) =10:TFEF (1 ) EF ( エ ) =0 
xFN=0:CAN4 

400 X=XPOS( 1 ) :Y=YPOS( 1 ) : DEFMOVE ( エ ) =SPRTT 
E(13,0,1,1,0,2) :POSTTTONT,X,Y:MOVET :PLAY 
"O5GRBO2" 

410 呈 =T- 1 :TT=T/ 2 : TFTT ネ 2<T GOTO190 

420 LOCATE14,22:PRTNTTT: | "ETFTT>30GOTO 
190 

430 PLAY"O4AO2"': TFTT GOTO190 

440 GOTO290 

450 TFMOVE ( 6 ) RETURN 

460 MX=XPOS( 6 ) :MY=YPOS( 6 ) :X=MX / 8-2:Y=MY/ 
8-3 

470 TFSF=0GOTO510 

480 ITF(STRTIG( 0 ) AND8 ) =0CAN7 : SF=0 : ST= 3 : GOT 
O520 

490 TEFST 1TFMOVE ( 7 ) =0DEFMOVE ( 7 ) =SPRTTE(10 
,0,1,8) :MOVE7:PLAY"E'"zST=ST- 1 : TFST=0CAN7 
500 RETURN 

510 TIF(STRTIG( 0 ) AND8 ) DEEFMOVE( 7 ) =SPRTTE(10 
, MV , 1 ,8, 0,0 ) : POSTTTON7 , MX , MY :MOVE7 :SF=1 < 
PLAY"EA'"':RETURN 

520 ONSTTICK( 0 )GOTO540,560,530,580,540,56 
0,530,590,540,560 


530 RETURN 
540 TFX=25RETURN 


光 ゆ 


\ー\ 


に 
年 
Wo 
ち 
や 
つ 
3 


ー MR 


の の つじ やせ ご 


っ 550 P1=X+2・P2=P1 :O1 =Y:O2=Y+1 :MV= 3 :GOTO6 1 


560 TFX=1RETURN 
っ 70 P1=X-1 sP2=P1 sO1 =Y:O02=Y+1 sMV=7 :GOTO6 1 


っ 80 P1=X:P2=X+1 :O1 =Y+2s02=O1 : MV=5 GOTO61 


590 TFY=3RETURN 

600 P1=XsP2=X+1 sO1 =Y- 1 :02=O1 s MV= 1 

610 D=4:B1 =ASC( SCR$(P1 ,O1 ) ) : B2 =ASC( SCR$( 
P2,02 ) ) : TEFB1 =195ORB2=195GOTO650 

620 ITFB1=254LOCATEP1 ,01 :PRTNT" "2 SC=SC+ 
1 :GOSUB940:PLAY"C" 

630 TFB2=254LOCATEP2,02:PRTNT" 2 :SC=SC+ 
1 :GOSUB940:iPLAY"C" 

640 DEFMOVE ( 6 ) =SPRTTE( 8 , MV, 1 ,D ) : MOVE6 : RE 
TURN 

650 X1=MXsY1 =MYsONMV GOTO690,660,660,660 
r680.670,670 

660 X1=X1-2:sGOTO700 

670 X1=X1+2sGOTO700 

680 Y1=Y1-2:sGOTO700 

690 Y1=Y1+2 

700 POSTTTON6 ,X1 ,Y1 :S=1 :D=1 :GOTO6 40 

710 FOR エ T=0TOE : TFMOVE ( T ) GOTO840 

720 ONES( エ )+2GOTO840,760,740,730 
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730 ES( エ T) =0 :GOTO840 

740 ET(T) =ET(T[ ) - 1 : ITFET ( エ ) =0ES ( T ) =2 sX=XPO 
S(T)AND248:Y=YPOS( T ) AND2 4 8 : DEFMOVE ( T ) =SP 
TEDI 13。0.8.8.0.3) xPOSTPTONT YsMOVET 
750 GOTO840 

760 MX=XPOS( 1 ) :X=MX/ 8-2:MY=YPOS( 1 ) :Y=MY / 
8-3: TFEF ( エ ) =0GOTO800 

770 TFMOVE ( 4 ) GOTO840 

780 ET(T ) =ET(T ) - 1 : TFET ( T ) DEFMOVE ( 4 ) =SPRT 
TE(5,0,1,8) :MOVE4 : GOTO840 

790 CAN4・:FN=0 >sEFE ( エ ) =0 sGOTO810 

800 TFFN=0TFEV( T ) = 3OREV ( エ T ) =7 TFRND( 8 ) = 0FN 
=1sEEF ( エ ) =1 :DEFMOVE( 4 ) =SPRTTE( 5,EV( 1 ) , 1 , 8 
,0,0):POSTTTON4,MX , MY:MOVE4 sET( T ) =RND( 10 ) 
+]1 sGOTO840 

810 TFRND( 4 ) GOTO830 

820 EV(T) =RND( 4 ) *2+1 

830 ONEV( エ T)GOSUB880,850,850,850,870,860, 
860,860 

840 NEXT:RETURN 

850 P1=X+2sP2=P1 sO1 =Y:O2=Y+1 sGOTO900 

860 P1=X-1 spP2=P1 sO1 =YsO2=Y+1 sGOTO900 

870 P1=XsP2=X+1 sO1 =Y+2 ェ :O02=O01 sGOTO900 

880 TFY=5RETURN 

890 P1=XsP2=X+1 sO1 =Y-1 s02=O01 

900 B1 =ASC(SCR$(P1 ,01 ) ) : B2=ASC( SCR$(P2,O 
2 ) ) : TFB1=195ORB2=195RETURN820 


910 


DEFMOVE ( [ ) =SPRTTE( 13,EV( 1 ) , 8, 4 ) : MOVE 


TsRETURN 


920 


4 71 


TFSN> 2TFMOVE ( 5 ) =0DEFMOVE( 5 ) =SPRTTE( 1 
2,96,0,2 ) : POSTTTON5,RND( 23 ) ま 8+32,240 


: MOVE5 


930 


990 


RETURN 
LOCATE5,21:PRTNTSC: 0": :RETURN 
FORK=1TO300:NEXT:RETURN 
FORK=1TO2000:NEXT:RETURN 

CIL,S :GOSUB1020 :GOSUB1030:PRTINT"# D R 
L ER TA NN K #":GOSUB1030:GOSUB10 


LOCATE8, 10:PRTNTCHR$(207) : "1 PLAYER" 
LOCATE1,18:PRTNT"TOP SCORE :"2TP "0 


POTNTS" 
1000 LOCATEO0,23:PRTINTCHR$(180)j "1985 HOD 


SON 


SOFT BY TTA。": 


1010 GOSUB1040:GOTO1060 

1020 PRTNT が が が が が が が が が が が が が が が が が が が が が が が が が が < 
RETURN 

1030 PRTNT"# #: 
RETURN 

1040 ITF(STRTG( 0 ) AND1 ) GOTO1040 

1050 RETURN 

1060 1F(STRTG( 0 ) AND1 ) =0GOTO1060 

1070 RETURN 
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幸 


協力 : 任天堂 株 式 会 社 
仁 大 = コ | の 容 「 フ ァ ミ リー コン ピュ ー グ ファ ミリ ー ペー 90 の 作 


任天堂 の 商標 で す 。 


ゲー ム の 天才 が 、 こん ど は 「 ゲ ー ム も 作れ る 天 | , 
才 」 に な る と 評判 の 本 だ 。 と に か 〈、 よ くわ か る 。|4 
オモ シロ い 。 キミ も 早く 読ん で ね 。 
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